home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Your Choice 1
/
your choice.zip
/
your choice
/
OS2
/
ALARM
/
ACUNINST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-07-25
|
1KB
|
40 lines
/* */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call SysCls
say ' '
say '┌───────────────────────────────────────────┐'
say '│ │'
say '│ Alarm Clock Uninstall │'
say '│ │'
say '│ This utility will remove all Alarm Clock │'
say '│ information from your OS2.INI file. │'
say '│ │'
say '└───────────────────────────────────────────┘'
call KILLAPP
exit
KILLAPP:
do I = 1 to 5 by 1
say ' '
say ' '
say 'Press Y to continue or N to abort.'
rc = SysGetKey()
select
when rc = 'Y' then do
result = SysIni('USER', 'AlrmClk2', 'DELETE:')
return
end /* Do */
when rc = 'y' then do
result = SysIni('USER', 'AlrmClk2', 'DELETE:')
return
end /* Do */
when rc = 'N' then return
when rc = 'n' then return
otherwise beep(454, 100)
end /* select */
end /* do */
return